object fmDemo: TfmDemo Left = 91 Top = 136 Width = 640 Height = 480 Caption = 'Soft Sector Bar Code Demo' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter WindowState = wsMaximized OnCreate = FormCreate OnResize = FormResize TextHeight = 16 object ssBarCode: TssBarCode Left = 104 Top = 24 Width = 221 Height = 55 BarCodeType = bcCode39 BarColor = clBlack BarWidth = 0.009999999776482582 Data = 'SOFT SECTOR' WideBarRatio = 3.000000000000000000 end object Panel: TPanel Left = 0 Top = 280 Width = 632 Height = 152 Align = alBottom BevelOuter = bvNone Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 40 Top = 57 Width = 86 Height = 16 Caption = 'Bar Code Type' end object Label2: TLabel Left = 296 Top = 1 Width = 58 Height = 16 Caption = 'Bar Width' end object Label3: TLabel Left = 296 Top = 57 Width = 63 Height = 16 Caption = 'Orientation' end object Label4: TLabel Left = 40 Top = 1 Width = 27 Height = 16 Caption = 'Data' end object Label5: TLabel Left = 400 Top = 20 Width = 38 Height = 16 Caption = 'inches' end object cbType: TComboBox Left = 40 Top = 73 Width = 217 Height = 24 Style = csDropDownList ItemHeight = 16 Items.Strings = ( 'Code 39' 'Interleaved 2 of 5' 'Postnet' 'UPC-A') TabOrder = 3 end object ckBearer: TCheckBox Left = 496 Top = 8 Width = 121 Height = 17 Caption = 'Bearer Bars?' TabOrder = 1 OnClick = ckBearerClick end object ckReadable: TCheckBox Left = 440 Top = 40 Width = 193 Height = 17 Caption = 'Print Human Readable?' State = cbChecked TabOrder = 2 OnClick = ckReadableClick end object cbOrientation: TComboBox Left = 296 Top = 73 Width = 217 Height = 24 Style = csDropDownList ItemHeight = 16 Items.Strings = ( 'Left to Right' 'Right To Left' 'Top to Bottom' 'Bottom to Top') TabOrder = 4 end object edData: TEdit Left = 40 Top = 16 Width = 217 Height = 24 CharCase = ecUpperCase TabOrder = 0 Text = 'SOFT SECTOR' end object btUpdate: TBitBtn Left = 40 Top = 112 Width = 161 Height = 33 Caption = '&Update Barcode' TabOrder = 5 OnClick = btUpdateClick Style = bsNew end object btClose: TBitBtn Left = 520 Top = 112 Width = 105 Height = 33 TabOrder = 6 Kind = bkClose Style = bsNew end object edWidth: TEdit Left = 296 Top = 16 Width = 97 Height = 24 TabOrder = 7 Text = '0.010' end object btPrint: TBitBtn Left = 304 Top = 112 Width = 121 Height = 33 Caption = '&Print Barcode' TabOrder = 8 OnClick = btPrintClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 0003377777777777777308888888888888807F33333333333337088888888888 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033 33333337FFFF77333333333000000333333333377777733333330000} NumGlyphs = 2 Style = bsNew end end object Panel1: TPanel Left = 0 Top = 432 Width = 632 Height = 21 Align = alBottom BevelOuter = bvNone Caption = 'Delphi Native Barcode Component - Copyright 1996 Soft Sector, In' + 'c. Call (216) 777-3612 to order!' Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 end end